home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 10 / Big_Mouth_The_10_1996_-_Side_C.d64 / the main menu_bm (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  753b  |  28 lines
  1. 1 rem"          "bm staff eyes only!(NULL)
  2. 2 poke 808,234:poke 53280,0:poke 53281,0
  3. 4 fort=1 to 500:next
  4. 6 print"[147][155]   the big mouth magazine - main menu"
  5. 8 fort=1 to 2000:next
  6. 10 print"[147]"
  7. 15 fort=1 to 500:next
  8. 20 printtab(7)"the big mouth - main menu"
  9. 30 print"a - digital messiah part 4"
  10. 31 print"b - censor demos"
  11. 32 print"c - doom!"
  12. 50 print"     pick a program to load (a-c) ?"
  13. 55 get a$:if a$="" then 55
  14. 60 a=asc(a$):if a-64<1 or a-64>3 then 55
  15. 65 if a-64=1 then 100
  16. 70 forx=49152 to 49170:ready:poke x,y:nextx
  17. 75 print"  loading..."
  18. 76 sys 49152
  19. 77 data 120,169,013,141,040,003,169,192
  20. 78 data 141,041,003,088,096,238,032,208
  21. 79 data 076,237,246
  22. 80 on a-64 goto 100,105,110
  23. 99 :
  24. 100 print"load"chr$(34)"digitl mesiah p4"chr$(34)",8,1[145][145][145]"
  25. 101 load"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]",8,1
  26. 105 load"  censor demos  ",8,1
  27. 110 load"     doom!      ",8,1
  28.